home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / spulen berechn. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  15KB  |  448 lines
  1. 1 goto10: open1,8,15
  2. 2 input#1,a,b$,c,d
  3. 3 printa,b$,c,d
  4. 4 stop
  5. 10 poke53280,0:poke53281,0:print"[147]"
  6. 20 o1=0:o2=0
  7. 100 gosub 50000:goto1000
  8. 900 rem*einfaches get
  9. 910 gety$:ify$=""then910
  10. 920 y=val(y$):ify>m1then910
  11. 930 m1=0:return
  12. 1000 rem*kerndaten
  13. 1010 printleft$(x2$,2);t1$
  14. 1020 print"1 = spule (hf-drossel)"
  15. 1030 print"2 = gegentaktwandler"
  16. 1040 print"3 = eintaktwandler"
  17. 1070 print"4 = kerntabelle"
  18. 1080 print"5 = drahttabelle"
  19. 1090 print"6 = drucken"
  20. 1100 printt2$
  21. 1110 m1=6:gosub900
  22. 1120 onygosub2000,5000,7000,3100,3200,20000
  23. 1130 goto1000
  24. 2000 rem*spule berechnen
  25. 2010 t1=1:l1=0:d1=0:b1=0:k1=0:a1=0:f1=0:x1=0:y1=0:m2=0:m3=0:m4=0
  26. 2020 gosub20140
  27. 2100 print"[147]spulendaten"
  28. 2110 print"l in henry   =";:inputl1
  29. 2120 print"d kern       =";:inputd1
  30. 2130 print"b kern       =";:inputb1
  31. 2140 print"kz 1-3       =";:inputk1
  32. 2150 print"al in nhenry =";:inputa1
  33. 2160 print"f in herz    =";:inputf1
  34. 2200 ifl1=0ord1=0orb1=0ork1=0ora1=0thenprintx3$;t6$;""t4$:gosub3800:goto1000
  35. 2210 ifk1<1ork1>3thenprintx3$;t6$;""t4$:gosub3800:goto2000
  36. 2220 ifk1<>1thenk1=2
  37. 2300 rem*kerntabelle lesen
  38. 2310 forj1=1to15
  39. 2320 ifq(j1,1)=d1andq(j1,2)=b1andq(j1,3)=k1thenx1=q(j1,4):y1=q(j1,5):goto2340
  40. 2330 next
  41. 2340 ifx1=0ory1=0thenprintx3$;t3$;""t4$:printt5$" j/n":goto2360
  42. 2350 goto2380
  43. 2360 gosub900:ify$="j"thengosub3100
  44. 2370 goto2000
  45. 2380 n1=sqr(l1/(1e-9*a1))
  46. 2400 rem*berechnung
  47. 2410 m2=0:m4=0
  48. 2420 n5=n1:n=n5:gosub7000:ifm4=1thengoto2000
  49. 2430 e1=d3:e2=d4:na=n5:ma=m2:ra=r:ra$=r$:la=l:la$=l$:fa=fe
  50. 2440 iff1<>0thenz3=2*(NULL)*f1*l1:r=z3:gosub3700:r2=r:r2$=r$
  51. 2460 qq=z3/r9:qq=int(qq*10)/10
  52. 2600 print"[147]spulendaten"
  53. 2610 print"l in henry   =";l1
  54. 2620 print"d kern       =";d1
  55. 2630 print"b kern       =";b1
  56. 2640 print"kz 1-3       =";k1
  57. 2650 print"al in nhenry =";a1
  58. 2660 print"f in herz    =";f1
  59. 2670 print"n            =";na
  60. 2680 ifma=0thenprinttab(24)"[145]windungen"
  61. 2690 ifma=1thenprinttab(24)"[145]*2 wind.par."
  62. 2700 print"d nennd.    =";e1;tab(24)"cul"
  63. 2710 print"d aussend.  =";e2;tab(24)"cul"
  64. 2720 print"rcu          =";ra;tab(24)ra$
  65. 2730 print"xl induktanz =";r2;tab(24)r2$
  66. 2740 print"q spulenguete=";qq
  67. 2750 print"fcu          =";fa;tab(24)"kupferfuellfak."
  68. 2800 gosub3010:ifm4=1then1000
  69. 2810 gosub7080:goto2430
  70. 3000 rem*drahtstaerke aendern
  71. 3010 printleft$(x3$,22);t7$;" dn j/n":m3=1:gosub3800
  72. 3020 ify$<>"j"thenm4=1:return
  73. 3030 print"dn+1=f1  dn-1=f3":gosub900
  74. 3040 ify$=chr$(133)andj2=31andma=1thenreturn
  75. 3050 ify$=chr$(133)thenj2=j2+1:ifj2>31thenj2=26:ma=1:goto3060
  76. 3055 goto3070
  77. 3060 d3=q1(j2,1):d4=q1(j2,2):z1=q1(j2,3):return
  78. 3070 ify$=chr$(134)thenj2=j2-1:ifj2<26andm2=1thenj2=31:ma=0
  79. 3080 d3=q1(j2,1):d4=q1(j2,2):z1=q1(j2,3):return
  80. 3090 return
  81. 3100 rem*kerntabelle lesen
  82. 3110 print"[147]kerntabelle"
  83. 3120 print"d kern","b kern","kz","ln"
  84. 3130 forj=1to15
  85. 3140 printq(j,1),q(j,2),q(j,3),q(j,6)
  86. 3150 next:goto3800
  87. 3200 rem*drahttabelle lesen
  88. 3205 print"[147]drahttabelle"
  89. 3210 print"dn","da","z1"
  90. 3220 forj=1to16
  91. 3230 printq1(j,1),q1(j,2),q1(j,3)
  92. 3240 next:print"weiter mit return":gosub3800
  93. 3250 print"[147]drahttabelle"
  94. 3260 print"dn","da","z1"
  95. 3270 forj=17to31
  96. 3280 printq1(j,1),q1(j,2),q1(j,3)
  97. 3290 next:goto3800
  98. 3400 rem*formatierung von c
  99. 3410 ifc<1e-9thenc=c*1e12:c$="pf":goto3440
  100. 3420 ifc<1e-6thenc=c*1e9:c$="nf":goto3440
  101. 3430 ifc<1e-3thenc=c*1e6:c$="uf"
  102. 3440 c=int(c*10)/10:return
  103. 3500 rem*rundung von n
  104. 3510 ny=n5-int(n5)
  105. 3520 ifny>.7thenn5=int(n5)+1:return
  106. 3530 ifny>.2thenn5=int(n5)+.5:return
  107. 3540 return
  108. 3600 rem*formatierung von l
  109. 3610 ifl<1e-6thenl=l*1e9:l$="nh":goto3650
  110. 3620 ifl<1e-3thenl=l*1e6:l$="uh":goto3650
  111. 3630 ifl<1thenl=l*1e3:l$="mh":goto3650
  112. 3640 l$="h"
  113. 3650 l=int(l+.5):return
  114. 3700 rem*formatierung von r
  115. 3710 ifr>1e6thenr=r/1e6:r$="mohm":goto3750
  116. 3720 ifr>1e3thenr=r/1e3:r$="kohm":goto3750
  117. 3730 ifr>1thenr$="ohm":goto3750
  118. 3740 ifr>1e-3thenr=r*1e3:r$="milli ohm"
  119. 3750 r=int(r*1000)/1000:return
  120. 3800 gosub900
  121. 3810 ifasc(y$)=13then3840
  122. 3830 return
  123. 3840 ifm3=1thenprintleft$(x3$,22);x1$:printleft$(x3$,23);x1$:m3=0
  124. 3850 return
  125. 5000 rem*gegentaktwandler berechnen
  126. 5010 print"[147]neueingabe ? j/n[146]":gosub6900:ify$<>"j"then5090
  127. 5020 t1=1:t2=.2:u1=0:u2=0:i1=0:u3=0:u4=0:b3=0:d1=0:b1=0:k1=0:a1=0:f1=0:x1=0:y1=0
  128. 5030 s4=0:m2=0:m3=0:m4=0:m5=0:j3=0:j3=0
  129. 5090 gosub20100
  130. 5100 print"[147]gegentaktwandler-daten"
  131. 5110 print"u prim in volt =";u1;:printtab(24):inputu1
  132. 5120 print"u sek  in volt =";u2;:printtab(24):inputu2
  133. 5130 print"i sek  in amp. =";i2;:printtab(24):inputi2
  134. 5140 print"u be   in volt =";u3;:printtab(24):inputu3
  135. 5150 print"u diode   volt =";u4;:printtab(24):inputu4
  136. 5160 print"b verst.-fakt. =";b3;:printtab(24):inputb3
  137. 5170 print"d kern-durchm. =";d1;:printtab(24):inputd1
  138. 5180 print"b kern-breite  =";b1;:printtab(24):inputb1
  139. 5190 print"kz 1-3 kammer  =";k1;:printtab(24):inputk1
  140. 5200 print"al in nhenry   =";a1;:printtab(24):inputa1
  141. 5210 print"f  in herz     =";f1;:printtab(24):inputf1
  142. 5220 print"b max in tesla =";t2;:printtab(24):inputt2
  143. 5230 print"r vorwiderst.  =";s4;:printtab(24):inputs4
  144. 5280 ifu1=0oru2=0ori2=0oru3=0oru4=0orb3=0ord1=0orb1=0ork1=0ora1=0orf1=0then5310
  145. 5290 ifs4=0then5310
  146. 5300 goto5320
  147. 5310 printx3$;t6$;""t4$:gosub6900:goto1000
  148. 5320 ifk1<1ork1>3thenprintx3$;t6$;""t4$:gosub6900:goto5000
  149. 5330 ifk1<>1thenk1=2
  150. 5335 rem*kerntabelle lesen
  151. 5340 forj1=1to15
  152. 5350 ifq(j1,1)=d1andq(j1,2)=b1andq(j1,3)=k1thenx1=q(j1,4):y1=q(j1,5):goto5370
  153. 5360 next
  154. 5370 ifx1=0ory1=0thenprintx3$;t3$;""t4$:printt5$" j/n":goto5390
  155. 5380 goto5410
  156. 5390 gosub900:ify$="j"thengosub3100
  157. 5400 goto5000
  158. 5410 rem*berechnung primaerwicklung
  159. 5420 ae=q(j1,7)
  160. 5430 n1=u1*1e6/(4*f1*t2*ae)
  161. 5440 l1=a1*1e-9*n1^2:l=l1:gosub3600:la=l:la$=l$
  162. 5450 m2=0:m4=0
  163. 5460 n5=n1:n=n5*4.2:gosub7000:ifm4=1thengoto5000
  164. 5470 e1=d3:e2=d4:na=n5:ma=m2:ra=r:ra$=r$:la=l:la$=l$:fa=fe:s1=r9
  165. 5480 rem*berechnung steuerwicklung
  166. 5500 n3=n1*2*u3/u1
  167. 5510 l3=a1*1e-9*n3^2:l=l3:gosub3600:lc=l:lc$=l$
  168. 5520 m2=0:m4=0
  169. 5530 n5=n3:n=n1*b3:gosub7000:ifm4=1thengoto5000
  170. 5540 e5=d3:e6=d4:nc=n5:mc=m2:rc=r:rc$=r$:lc=l:lc$=l$:fc=fe:s3=r9
  171. 5550 rem*berechnung sekundaerwicklung
  172. 5560 r4=s1*u2/u1
  173. 5570 r2=r4
  174. 5580 forj3=1to3
  175. 5590 n2=n1*(u2+u4+((r4+r2)*i2))/u1
  176. 5600 m2=0:m4=0
  177. 5610 n5=n2:n=n2*4.2:gosub7000:ifm4=1thengoto5000
  178. 5620 e3=d3:e4=d4:nb=n5:mb=m2:rb=r:rb$=r$:fb=fe:r2=r9
  179. 5630 l2=a1*1e-9*n2^2:l=l2:gosub3600:lb=l:lb$=l$
  180. 5640 next
  181. 5650 rem*nebenrechnung
  182. 5660 i3=i2*n2/n1/b3:i3=int((i3+.0005)*1000)/1000:s5=u3/i3:s6=((u1-.6)/.6)*s4
  183. 5680 s5=u3/i3:r=s5:gosub3700:s5=r
  184. 5690 s6=((u1-.6)/.6)*s4:r=s6:gosub3700:s6=r
  185. 5700 s5=u3/i3:r=s5:gosub3700:s5=r:s5$=r$
  186. 5710 p1=i1*u1:p1=int((p1+.0005)*1000)/1000
  187. 5720 pv=p1-u2*i2:pv=int((pv+.0005)*1000)/1000
  188. 5730 s6=((u1-.6)/.6)*s4:r=s6:gosub3700:s6=r:s6$=r$
  189. 5740 c1=10/(u2*i2*f1):
  190. 5750 s7=u5/i2:r=s7:gosub3700:r7=r:r7$=r$
  191. 5760 i1=i2*n2/n1:i1=int((i1+.0005)*1000)/1000
  192. 5770 p1=i1*u1:p1=int((p1+.0005)*1000)/1000
  193. 5780 pv=p1-u2*i2:pv=int((pv+.0005)*1000)/1000
  194. 5790 u5=u1*n2/n1:u5=int((u5+.05)*10)/10
  195. 5800 c1=10/(u2*i2*f1):c=c1:gosub3400:c1=c:c1$=c$
  196. 5810 s7=u5/i2:r=s7:gosub3700:r7=r:r7$=r$
  197. 5820 nl=e1^2*(NULL)/4*5.3*u1:nl=int(nl*1000)/1000:fd=(fa+fb+fc)*2
  198. 6000 print"[147]gegentakt-wandler-daten"
  199. 6010 print"nennleistung  =";nl;"(5.3a/qmm)
  200. 6020 [153]"primaerwicklung";[163]24)"2 mal"
  201. 6030 [153]"n             =";na
  202. 6040 [139]ma[178]0[167][153][163]24)"onwindungen"
  203. 6050 [139]ma[178]1[167][153][163]24)"on*2 wind.par."
  204. 6060 [153]"d nenn.       =";e1;[163]24)"cul"
  205. 6070 [153]"d auss.       =";e2;[163]24)"cul"
  206. 6080 [153]"sekundaerwicklung";[163]24)"2 mal"
  207. 6090 [153]"n             =";nb
  208. 6100 [139]mb[178]0[167][153][163]24)"onwindungen"
  209. 6110 [139]mb[178]1[167][153][163]24)"on*2 wind.par."
  210. 6120 [153]"d nenn.       =";e3;[163]24)"cul"
  211. 6130 [153]"d auss.       =";e4;[163]24)"cul"
  212. 6140 [153]"steuerwicklung";[163]24)"2 mal"
  213. 6150 [153]"n             =";nc
  214. 6160 [139]mc[178]0[167][153][163]24)"onwindungen"
  215. 6170 [139]mc[178]1[167][153][163]24)"on*2 wind.par."
  216. 6180 [153]"d nenn.       =";e5;[163]24)"cul"
  217. 6190 [153]"d auss.       =";e6;[163]24)"cul"
  218. 6200 [153]"weiter mit return":[141]3800
  219. 6210 [153]"loadgegentakt-wandler-daten"
  220. 6220 [153]"ic transistor =";i1;[163]24)"amp"
  221. 6230 [153]"ib transistor =";i3;[163]24)"amp"
  222. 6240 [153]"rb            =";s5;[163]24)s5$
  223. 6250 [153]"r vorwiderst. =";s6;[163]24)s6$
  224. 6260 [153]"u sek. max    =";u5;[163]24)"volt"
  225. 6270 [153]"c ladeelko    =";c1;[163]24)c1$
  226. 6280 [153]"p1 ein leist. =";p1;[163]24)"watt"
  227. 6290 [153]"pv verl.      =";pv;[163]24)"watt"
  228. 6300 [153]"p nenn        =";nl;[163]24)"watt"
  229. 6310 [153]"fcu           =";fd;[163]24)"kupferfuellf."
  230. 6320 [153]"weiter mit return":[141]3800
  231. 6500 [153]"loadgegentakt-wandler-daten"
  232. 6510 [153]"n       prim. =";na
  233. 6520 [139]ma[178]0[167][153][163]24)"onwindungen"
  234. 6530 [139]ma[178]1[167][153][163]24)"on*2 wind.par."
  235. 6540 [153]"l       prim. =";la;[163]24)la$
  236. 6550 [153]"rcu     prim. =";ra;[163]24)ra$
  237. 6560 [153]"d nenn. prim. =";e1;[163]24)"cul"
  238. 6570 [153]"d auss. prim. =";e2;[163]24)"cul"
  239. 6580 [153]"fcu           =";fa;[163]24)"kupferfuellf."
  240. 6610 [153]"n       sek.  =";nb;[163]24)"windungen"
  241. 6620 [139]mb[178]0[167][153][163]24)"onwindungen"
  242. 6630 [139]mb[178]1[167][153][163]24)"on*2 wind.par."
  243. 6640 [153]"l       sek.  =";lb;[163]24)lb$
  244. 6650 [153]"rcu     sek.  =";rb;[163]24)rb$
  245. 6660 [153]"d nenn. sek.  =";e3;[163]24)"cul"
  246. 6670 [153]"d auss. sek.  =";e4;[163]24)"cul"
  247. 6680 [153]"fcu           =";fb;[163]24)"kupferfuellf."
  248. 6710 [153]"n       steu. =";nc;[163]24)"windungen"
  249. 6720 [139]mc[178]0[167][153][163]24)"onwindungen"
  250. 6730 [139]mc[178]1[167][153][163]24)"on*2 wind.par."
  251. 6740 [153]"l       steu. =";lc;[163]24)lc$
  252. 6750 [153]"rcu     steu. =";rc;[163]24)rc$
  253. 6760 [153]"d nenn. steu. =";e5;[163]24)"cul"
  254. 6770 [153]"d auss. steu. =";e6;[163]24)"cul"
  255. 6780 [153]"fcu           =";fc;[163]24)"kupferfuellf."
  256. 6790 [153]"noch einmal auflisten ? j/n":[141]900:[139]y$[178]"j"[167]6000
  257. 6800 [142]
  258. 6900 [141]900
  259. 6910 [139][198](y$)[178]13[167]6940
  260. 6930 [142]
  261. 6940 [139]m3[178]1[167][153][200](x3$,22);x1$:[153][200](x3$,23);x1$:m3[178]0
  262. 6950 [142]
  263. 7000 [143]
  264. 7010 d2[178]y1[173]([189]([188](n)[173]x1))
  265. 7020 [139]d2[177][178]1.068[167]d2[178][186]((d2[174]2)[173]2):m2[178]1
  266. 7030 [139]d2[177][178]1.068[167]d2[178]1.068:j2[178]31
  267. 7040 [129]j2[178]1[164]31
  268. 7050 [139]d2[178][179]q1(j2,2)[167]d3[178]q1(j2,1):d4[178]q1(j2,2):z1[178]q1(j2,3):[137]7070
  269. 7060 [130]
  270. 7070 n5[178][181]((n5[170].05)[172]10)[173]10:[141]3500
  271. 7080 n6[178][189](([188](y1[173]d4))[172]x1)
  272. 7090 fd[178]n5[173]n6:fe[178][181](fd[172]50[170].5)[173]100:[139]m2[178]1[167]fe[178]fe[172]2
  273. 7100 z2[178]q(j1,6):r[178](z2[172]n5[172]fd[170]100)[173]1000[172]z1:[139]m2[178]1[167]r[178]r[173]2
  274. 7110 r9[178]r:[141]3700
  275. 7120 [142]
  276. 20000 [143]*drucken
  277. 20010 [153]"loaddrucken":[153]x3$;t8$
  278. 20020 [141]900:[139]y$[179][177]"j"[167]20020
  279. 20050 [137]20200
  280. 20100 [143]*gegentaktwandler
  281. 20110 o1[178]1:[142]
  282. 20130 [143]*spule (hf-drossel)
  283. 20140 o2[178]1:[142]
  284. 20200 [139]o1[178]1[167]20300
  285. 20210 [139]o2[178]1[167]21200
  286. 20290 [142]
  287. 20300 [159]1,4
  288. 20310 [152]1,[199](14)[166]4)"gegentaktwandler-daten * eingabe":[152]1
  289. 20320 [152]1,[199](15)[166]8)"u prim. in volt =";u1
  290. 20330 [152]1,[199](15)[166]8)"u sek.  in volt =";u2
  291. 20340 [152]1,[199](15)[166]8)"i sek.  in amp. =";i2
  292. 20350 [152]1,[199](15)[166]8)"u be    in volt =";u3
  293. 20360 [152]1,[199](15)[166]8)"u diode in volt =";u4
  294. 20370 [152]1,[199](15)[166]8)"b verst.-fakt.  =";b3
  295. 20380 [152]1,[199](15)[166]8)"d kern-durchm.  =";d1
  296. 20390 [152]1,[199](15)[166]8)"b kern-breite   =";b1
  297. 20400 [152]1,[199](15)[166]8)"kz 1-3 kammer   =";k1
  298. 20410 [152]1,[199](15)[166]8)"al in nhenry    =";a1
  299. 20420 [152]1,[199](15)[166]8)"f  in herz      =";f1
  300. 20430 [152]1,[199](15)[166]8)"b max in tesla  =";t2
  301. 20440 [152]1,[199](15)[166]8)"r vorwiderst.   =";s4
  302. 20450 [152]1
  303. 20510 [152]1,[199](14)[166]4)"gegentaktwandler-daten * ausgabe"
  304. 20520 [152]1
  305. 20530 [152]1,[199](15)[166]8)"primaerwicklung";[199](16)[199](51)[199](50)"2 mal"
  306. 20540 [152]1,[199](15)[166]8)"n             =";na;
  307. 20550 [139]ma[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
  308. 20560 [139]ma[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
  309. 20570 [152]1,[199](15)[166]8)"d nenn.       =";e1;[199](16)[199](51)[199](50)"cul"
  310. 20580 [152]1,[199](15)[166]8)"d auss.       =";e2;[199](16)[199](51)[199](50)"cul"
  311. 20590 [152]1
  312. 20600 [152]1,[199](15)[166]8)"ic transistor =";i1;[199](16)[199](51)[199](50)"amp"
  313. 20610 [152]1,[199](15)[166]8)"ib transistor =";i3;[199](16)[199](51)[199](50)"amp"
  314. 20620 [152]1,[199](15)[166]8)"sekundaerwicklung";[199](16)[199](51)[199](50)"2 mal"
  315. 20630 [152]1
  316. 20640 [152]1,[199](15)[166]8)"n             =";nb;
  317. 20650 [139]mb[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
  318. 20660 [139]mb[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
  319. 20670 [152]1,[199](15)[166]8)"d nenn.       =";e3;[199](16)[199](51)[199](50)"cul"
  320. 20680 [152]1,[199](15)[166]8)"d auss.       =";e4;[199](16)[199](51)[199](50)"cul"
  321. 20690 [152]1
  322. 20695 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  323. 20700 [152]1:[152]1
  324. 20710 [152]1,[199](15)[166]8)"l       prim. =";la;[199](16)[199](51)[199](50)la$
  325. 20720 [152]1,[199](15)[166]8)"steuerwicklung";[199](16)[199](51)[199](50)"2 mal"
  326. 20730 [152]1
  327. 20735 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  328. 20740 [152]1,[199](15)[166]8)"n             =";nc;
  329. 20750 [139]mc[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
  330. 20760 [139]mc[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
  331. 20770 [152]1,[199](15)[166]8)"d nenn.       =";e5;[199](16)[199](51)[199](50)"cul"
  332. 20775 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  333. 20780 [152]1,[199](15)[166]8)"d auss.       =";e6;[199](16)[199](51)[199](50)"cul"
  334. 20790 [152]1:[152]1
  335. 20800 [152]1,[199](15)[166]8)"ic transistor =";i1;[199](16)[199](51)[199](50)"amp"
  336. 20810 [152]1,[199](15)[166]8)"ib transistor =";i3;[199](16)[199](51)[199](50)"amp"
  337. 20820 [152]1,[199](15)[166]8)"rb            =";s5;[199](16)[199](51)[199](50)s5$
  338. 20830 [152]1,[199](15)[166]8)"r vorwiderst. =";s6;[199](16)[199](51)[199](50)s6$
  339. 20840 [152]1,[199](15)[166]8)"u sek. max    =";u5;[199](16)[199](51)[199](50)"volt"
  340. 20850 [152]1,[199](15)[166]8)"c ladeelko    =";c1;[199](16)[199](51)[199](50)c1$
  341. 20860 [152]1,[199](15)[166]8)"p1 ein leist. =";p1;[199](16)[199](51)[199](50)"watt"
  342. 20870 [152]1,[199](15)[166]8)"pv verlust    =";pv;[199](16)[199](51)[199](50)"watt"
  343. 20880 [152]1,[199](15)[166]8)"p nennleist.  =";nl;[199](16)[199](51)[199](50)"watt"
  344. 20890 [152]1,[199](15)[166]8)"fcu           =";fd;
  345. 20895 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  346. 20900 [152]1:[152]1
  347. 20910 [152]1,[199](15)[166]8)"l       prim. =";la;[199](16)[199](51)[199](50)la$
  348. 20920 [152]1,[199](15)[166]8)"rcu     prim. =";ra;[199](16)[199](51)[199](50)ra$
  349. 20930 [152]1,[199](15)[166]8)"fcu     prim. =";fa;
  350. 20935 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  351. 20940 [152]1
  352. 20950 [152]1,[199](15)[166]8)"l        sek. =";lb;[199](16)[199](51)[199](50)lb$
  353. 20960 [152]1,[199](15)[166]8)"rcu      sek. =";rb;[199](16)[199](51)[199](50)rb$
  354. 20970 [152]1,[199](15)[166]8)"fcu      sek. =";fb;
  355. 20975 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  356. 20980 [152]1
  357. 20990 [152]1,[199](15)[166]8)"l       steu. =";lc;[199](16)[199](51)[199](50)lc$
  358. 21000 [152]1,[199](15)[166]8)"rcu     steu. =";rc;[199](16)[199](51)[199](50)rc$
  359. 21010 [152]1,[199](15)[166]8)"fcu     steu. =";fc;
  360. 21020 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  361. 21100 o1[178]0:[152]1:[160]1:[142]
  362. 21200 [159]1,4
  363. 21210 [152]1,[199](14)[166]4)"spule (hf-drossel)-daten * eingabe"
  364. 21220 [152]1
  365. 21230 [152]1,[199](15)[166]8)"l in henry      =";l1
  366. 21240 [152]1,[199](15)[166]8)"d kern-durchm.  =";d1
  367. 21250 [152]1,[199](15)[166]8)"b kern-breite   =";b1
  368. 21260 [152]1,[199](15)[166]8)"kz 1-3 kammer   =";k1
  369. 21270 [152]1,[199](15)[166]8)"al in nhenry    =";a1
  370. 21280 [152]1,[199](15)[166]8)"f in herz       =";f1
  371. 21290 [152]1
  372. 21300 [152]1,[199](14)[166]4)"spule (hf-drossel)-daten * ausgabe"
  373. 21310 [152]1
  374. 21340 [152]1,[199](15)[166]8)"n             =";na;
  375. 21350 [139]ma[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
  376. 21360 [139]ma[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
  377. 21370 [152]1,[199](15)[166]8)"d nenn.       =";e1;[199](16)[199](51)[199](50)"cul"
  378. 21380 [152]1,[199](15)[166]8)"d auss.       =";e2;[199](16)[199](51)[199](50)"cul"
  379. 21390 [152]1,[199](15)[166]8)"rcu           =";ra;[199](16)[199](51)[199](50)ra$
  380. 21400 [152]1,[199](15)[166]8)"xl induktanz  =";r2;[199](16)[199](51)[199](50)r2$
  381. 21410 [152]1,[199](15)[166]8)"q spulenguete =";qq;[199](16)[199](51)[199](50)r2$
  382. 21420 [152]1,[199](15)[166]8)"fcu           =";fa;
  383. 21430 [152]1,[199](15)[166]8)[199](16)[199](51)[199](50)"kupferfuellfaktor"
  384. 21500 o2[178]0:[152]1:[160]1:[142]
  385. 50000 [143]*variablen lesen
  386. 50010 [134]q(15,7):[134]q1(31,3)
  387. 50110 [135]x1$,x2$,x3$,t1$,t2$,t3$,t4$,t5$,t6$,t7$,t8$
  388. 50200 [131]"                                   "
  389. 50210 [131]"load",""
  390. 50220 [131]"bitte waehlen sie aus","bitte gewuenschte nummer eintippen"
  391. 50240 [131]"kerndaten nicht gef.","bitte neueingabe","kerndaten auflisten ?"
  392. 50250 [131]"eingabe unvollstaendig","aenderung erwuenscht von:?"
  393. 50260 [131]"drucker eingeschaltet ?"
  394. 51000 [143]*kerndaten
  395. 51100 [129]j[178]1[164]15
  396. 51200 [129]w[178]1[164]7
  397. 51205 [135]w1
  398. 51210 q(j,w)[178]w1:[130]
  399. 51220 [130]
  400. 51400 [131]9,5,1,1.882,1.8565,18.5,10,11,7,1,1.836,2.3654,22,16,11,7,2,1.839
  401. 51420 [131] 2.5075,22,16,14,8,1,1.828,3.0292,28,25,14,8,2,1.832,3.2114,28,25
  402. 51430 [131] 18,11,1,1.839,3.8683,35.6,44
  403. 51440 [131] 18,11,2,1.861,4.1204,35.6,44,22,13,1,1.848,5.3375,44,63
  404. 51450 [131] 22,13,2,1.825,5.9283,44,63
  405. 51460 [131] 26,16,1,1.849,6.3362,52,94,26,16,2,1.834,6.9018,52,94
  406. 51470 [131] 30,19,1,1.835,7.8774,60,136
  407. 51480 [131] 30,19,2,1.831,8.5916,60,136,36,22,1,1.827,9.1729,73,201
  408. 51490 [131] 36,22,2,1.824,10.0917,73,201
  409. 52000 [143]*drahttabelle
  410. 52100 [129]j[178]1[164]31
  411. 52200 [129]w[178]1[164]3
  412. 52205 [135]w1
  413. 52210 q1(j,w)[178]w1:[130]
  414. 52220 [130]
  415. 52400 [131] .032,.04,21.44,.04,.05,13.72,.05,.062,8.781,.063,.078,5.531
  416. 52420 [131] .071,.088,4.355,.08,.098,3.43,.09,.11,2.71,.1,.121,2.195
  417. 52440 [131] .112,.134,1.75,.125,.149,1.405,.14,.166,1.12,.16,.187,.8575
  418. 52460 [131] .18,.209,.6775,.2,.23,.5488,.224,.256,.4375,.25,.284,.3512
  419. 52480 [131] .28,.315,.28,.315,.352,.2212,.355,.395,.1742,.4,.442,.1372
  420. 52500 [131] .45,.495,.1084,.5,.548,.08781,.56,.611,.07,.63,.684,.05531
  421. 52520 [131] .71,.767,.04355,.75,.809,.03903,.8,.861,.0343,.85,.913,.03038
  422. 52540 [131] .9,.965,.0271,.95,1.017,.02432,1,1.068,.02195
  423. 55000 [142]
  424. 58000 [143]*drucken
  425. 58100 [159]1,4
  426. 58110 [152]1,"kerntabelle":[152]1
  427. 58120 [152]1,"d-kern";
  428. 58130 [152]1,[199](16)[199](49)[199](48)"b-kern";[199](16)[199](50)[199](48)"kz";
  429. 58140 [152]1,[199](16)[199](51)[199](48)"x1";[199](16)[199](52)[199](48)"y1";
  430. 58150 [152]1,[199](16)[199](53)[199](48)"ln";[199](16)[199](54)[199](48)"ae"
  431. 58160 [152]1
  432. 58200 [129]j[178]1[164]15
  433. 58210 [152]1,q(j,1);[199](16)[199](49)[199](48)q(j,2);
  434. 58220 [152]1,[199](16)[199](50)[199](48)q(j,3);[199](16)[199](51)[199](49)q(j,4);
  435. 58230 [152]1,[199](16)[199](52)[199](48)q(j,5);[199](16)[199](53)[199](49)q(j,6);
  436. 58240 [152]1,[199](16)[199](54)[199](48)q(j,7)
  437. 58250 [130]
  438. 58300 [152]1:[152]1
  439. 58310 [152]1,"drahttabelle":[152]1
  440. 58320 [152]1,"d-nenn";
  441. 58330 [152]1,[199](16)[199](49)[199](48)"d-aussen";
  442. 58340 [152]1,[199](16)[199](50)[199](48)"r ohm/m"
  443. 58400 [129]j[178]1[164]31
  444. 58410 [152]1,q1(j,1);[199](16)[199](49)[199](48)q1(j,2);
  445. 58420 [152]1,[199](16)[199](50)[199](48)q1(j,3)
  446. 58450 [130]
  447. 59900 [152]1:[160]1:[142]
  448.